proc kickwarn {nick host handle chan knick reason} {
  global botnick home kwarn

  if {$kwarn == 1} {
    if {[string tolower $knick] == [string tolower $botnick]} {
      putlog "$nick ($host) ($handle) kicked me from $chan with the reason : $reason"    
      putquick "PRIVMSG $home :\0034\002$nick\002 ($host) kicked me from \0033$chan\0034 with the reason:\0033 $reason"
      putquick "NOTICE $nick :\0034Your kick on me has been logged and sent to \002$home\002 - have a nice day!!!!"
      putquick "PRIVMSG $chan :\0034\002$nick\002 ($host) kicked me from $chan with the reason : $reason"
      putquick "PRIVMSG $chan :\0034A message that $nick kicked me has been logged and sent to $home and more than likely someone will be here to check on it - don't be surprised if your channel is purged." 

      return 0
    }
  }
}










